﻿'I left out the part where I grab the data set from the web service and place
'each data set into an arrayList
'I have no idea how the data set will be placed into an arrayList
'I also have no idea what the data will look like so this may need to be tweeked a lot
'I have to sill do the discovery of the web service


'''''''''''''''''''''''''''''''''''''''
''''''''Coders:  '''''''''''''''''''''' 
''''''''''Joe Bittner''''''''''''''''''
''''''''''           ''''''''''''''''''
''''''''Last update: 2/10 '''''''''''''


Public Class CompareClass


    Dim studentArrayList As New ArrayList
    Dim majorArrayList As New ArrayList
    Dim majorArrayListBooleanValues As New ArrayList


    'Public Sub compare(ByVal studentID As String, ByVal majorID As String)
    Public Sub compare()
        'hard coded data for testing purposes
        studentArrayList(0) = "CIS2323 Database Design"
        studentArrayList(1) = "CIS1323 Testing"
        studentArrayList(2) = "CIS4323 Programming in VB"

        majorArrayList(0) = "CIS2323 Database Design"
        majorArrayList(1) = "CIS9323 Database Destruction"
        majorArrayList(2) = "CIS1323 Testing"
        majorArrayList(3) = "CIS4323 Programming in VB"

        ''put a loop here to compare the array lists
        Dim i As Integer = 0
        While i <> studentArrayList.Count + 1

            Dim j As Integer = 0

            While j <> majorArrayList.Count + 1
                If studentArrayList(i) = majorArrayList(j) Then
                    ' majorArrayList(j) = majorArrayList(j) + "True"
                    majorArrayListBooleanValues(i) = "True"
                End If
                j = j + 1
            End While


            i = i + 1
        End While

    End Sub
    Public Function getStudentCompletedCoursesArray()

        Return studentArrayList

    End Function
    Public Function getMajorRequiredCoursesArray()

        Return studentArrayList

    End Function

    'returns all of the positions that match the major requirements with true
    Public Function getBooleanValues()
        Return majorArrayListBooleanValues
    End Function
End Class
